Inference at * 1 1 2 1 1 1 1 
Iof proof for Lemma adjacent-append:



1. T : Type
2. x : T
3. y : T
4. L1 : T List
5. L2 : T List
6. i : {0..(||L1 @ L2|| - 1)}
7. x = L1[i]
8. y = L2[((i+1) - ||L1||)]
9. i < ||L1||
10. (i < (||L1|| - 1))
  L1[i] = last(L1) 

latex

 by ((RepUR ``last`` 0) 
CollapseTHEN (((EqCD) 
CollapseTHEN (Auto)))) 

latex

C.

Definitions	last(L), , x:A. B(x), x:AB(x), T, True, t  T, #$n, l[i], False, P  Q, , n - m, n+m, -n, ||as||, s = t, {i..j}, type List, Type, P & Q, x:A  B(x), A  B, a < b, A
Lemmas	select wf, squash wf, le wf, length wf1